home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / disk / recfilsh.zip / RECORDIT.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1996-09-16  |  14KB  |  194 lines
  1. SOUND1
  2. QUIT>
  3. GETANOTHER
  4. CUSTOMERb
  5. ADDRESSg
  6. STATE
  7. PHONEC
  8. SUBDATE
  9. CREDITCARD
  10. CARDTYPE*
  11. CARDNUMBER
  12. EXPDATE
  13. LICENSE
  14. ITEMONE
  15. PRICEONE
  16. ITEMTWO
  17. PRICETWO7
  18.     ITEMTHREEC
  19. PRICETHREE
  20. ITEMFOUR
  21.     PRICEFOUR
  22. ITEMFIVE
  23.     PRICEFIVE
  24. ITEMSIX<
  25. PRICESIXH
  26.     ITEMSEVEN
  27. PRICESEVEN
  28. SUBTOTAL(
  29. TOTALv
  30. CHOICE
  31. LEAVEONE
  32. RETRIEVEONE
  33.     MESSAGETO
  34. LINEONE;
  35. LINETWOH
  36.     LINETHREEV
  37. CALENDAR
  38. MESSAGEFROM,
  39. MESSAGECVS
  40. SAVEMESSAGE
  41.     DISPLAYIT
  42. WHATTODOm
  43. PRINTIT
  44. PRINT
  45. NEXTONE
  46.     SEARCHFOR
  47. RANDON
  48.     RETRIEVE2
  49. RETRIEVETWO
  50. RETRIEVEo
  51. GETIT
  52. DISPLAY
  53. TALLY
  54.     SKIPTALLYb
  55. SKIPHEADER
  56. PAGEADVANCE
  57. PAGERADVANCE,
  58. LINETWOCHECKr
  59. LINETW0CHECK
  60. OPENFILE\
  61. SKIPLINETWOCHECK2
  62. SKIPLINETHREECHECKp
  63. LINETHREECHECKV
  64.     SAVEORNOT
  65. SAVEO
  66.     SKIPBLOAD
  67. ORIGMESSAGETO
  68. ORIGLINEONE8
  69. ORIGLINETWO
  70. ORIGLINETHREE$
  71. ORIGCALENDARb
  72. ORIGMESSAGEFROM
  73. ERASEALL<
  74. FINDIT
  75. SLEEP2
  76. ERASED
  77. FINDNEXT
  78. SAVEORNOT2]
  79. SKIPTALLY2
  80.     ORIGLINE3
  81. NUMBER
  82. DONECOUNTINGx
  83. FOUND
  84.     SKIPPRINT
  85. INCREASE0
  86.     SKIPTHREE
  87. SKIPFOUR
  88.     SKIPTFOUR
  89. COUNTIT
  90. THREEN
  91. Errorhandler
  92. AWAITKEY
  93. MENUB
  94. cCLEAR
  95. ERASEONE
  96. ERASED2
  97. ALTER
  98.     WHATATODO
  99. SAVED
  100. HOLDON
  101. HOLDNO
  102. RUSURE
  103. RUSURE2
  104. SHARWARE
  105. SHARE
  106. RESTART
  107. WHICHPRINTER
  108. WHICHPRINTER2
  109. PRINTER
  110. FIGUREIT
  111. ADVER.001"
  112. ADVER.002"
  113. ADVER.003"
  114. ADVER.004"
  115. ADVER.005"
  116. MESSAGE.MEN"
  117.   WRONG ENTRY  "
  118. routine to RETRIEVE message
  119. MESSAGE.RET"
  120.   TOO LONG  
  121. ______________ And Press "
  122.  ENTER NAME  "
  123. ______________ "
  124. NAMECHEK.RECd
  125. MESSAGE.REC"d
  126. ?             
  127. X             q
  128.                     YOU HAVE
  129. RECORD(S)                  "
  130. MESSAGE.REC"d
  131.  ALL RECORDS PRINTED "
  132. _____________________"
  133.  NO RECORDS FOR 
  134. _________________"
  135. ?             
  136. X             q
  137. corrects goofy negative numbering when only 1 record exists for a retrieved database
  138.                       RECORD #
  139.                     
  140.                                             
  141.  PRINTER ADVANCE IS RE-SET! 
  142.                              "
  143. MESSAGE.REC"d
  144.  ALL OF THE DATABASE HAS BEEN ERASED
  145.  Press E when done Selectively printing! "
  146.                  THE DATABASE NAME IS: "
  147. DATE RECORD WAS ENTERED: "
  148.                                                  "
  149.                                                  "
  150. GENERAL LOCATION - "
  151. IF TALLY# >= FIGUREIT# THEN GOTO SKIPTALLY22
  152. MESSAGE.ENT"
  153. ______________
  154.   TOO LONG  
  155. ______________       "
  156.  ENTER NAME! "
  157. ______________      
  158.   TOO LONG  
  159. _________________________________________________    "
  160.  PLEASE ENTER DATA! 
  161. _______________________"
  162.   TOO LONG  
  163. _________________________________________________    "
  164.  THIS ENDS ENTRY - Y/N? 
  165. _________________________"
  166.  THEN PLEASE ENTER YOUR TEXT! 
  167. ______________________________
  168.   TOO LONG  
  169. _________________________________________________    "
  170.  THIS ENDS MESSAGE- Y/N? "
  171. _________________________"
  172.  THEN PLEASE ENTER YOUR TEXT! 
  173. ______________________________
  174. _________________________"
  175.  THEN PLEASE ENTER YOUR TEXT! 
  176. ______________________________
  177.   TOO LONG  
  178. ______________          
  179.                  PRESS S TO SAVE, OR R TO REDO MESSAGE!                         
  180.                                                                                 
  181. DATA.DATd
  182. 12347"
  183. MESSAGE.REC"d
  184.       Printer NOT ON, or OUT OF PAPER.  Check and press any key to continue!    
  185.                                                                                 
  186.   THIS SINGLE RECORD HAS BEEN ERASED  
  187.  Press Y to Delete, or N to Abort 
  188.                                    "
  189. SHARWARE.000
  190. LINES.000"
  191. MESSAGE.RET"
  192. MESSAGE.RET"
  193. MESSAGE.RET"
  194.